<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage="65001"%>
<%Response.Charset="UTF-8"%>
<%
on error resume next
'MSSQL
'MSSQL 2008R2版本链接语句
ConnStr = "Provider=SQLNCLI10;Server=(local);Database=AnyMenu_DB;Uid=sa; Pwd=你的密码"
Set conn=Server.CreateObject("ADODB.CONNECTION")
conn.open connstr

set rs=server.createobject("adodb.recordset")
set rss=server.createobject("adodb.recordset")

%>

<%

'=====================================================================
' 软件名称：AnyMenu 二级树状目录菜单系统
' 当前版本：Version UTF-8 1.0
' 版权声明：版权归卿羽科技所有（www.AnyKings.com）
' EMail：mocomor@qq.com
' 请保留以上版权声明信息

%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>AnyMenu</title>
<link rel="stylesheet" href="style.css">
<script type="text/javascript" src="dtree.js"></script>
</head>
